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; FACILITY: ACC, Account file dumper 
i ABSTRACT: 


COPYRIGHT (c) wre 1980, 1982, 1984 BY 
DIGITAL EQUIPM 1 COR PORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERV 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vaanerehatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


oe INFORMATION IN THIS SOFTWARE iS SUBJECT TO CHANGE WITHOUT NOTICE 
-— syd NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Serer eee ee eee AAAAAAAAAAAAE TEE HAHAAA THERE HEAEAAAAAAAAARAKEKAeeeeeeeees 


This module senganee routines used to build and manipulate 
sort and summarization ae as well as routines to accumulate 
and report summarization totals and general totals. 


i ENVIRONMENT : 


VAX; VMS operating system. unprivileged user mode, 


i AUTHOR: Greg Robert and Steve Forgey, January 1982 
i Modified by: 


v03-005 DAS0002 David Solomon 12-Jan-1984 
Get ACCDEF.REQ from SRCS, not MSRCS. 


v03-004 DAS0001 David Solomon 03-Jan-1984 
Change references to anesnert a ACC_ to ACC$_. Us 
literal for summation s e number. In RELEAS 
get key table index number VY 3 table, SORT_INDEX- 
rom key start etal word in key eae | n§ 


v03-003 spr gose o forgery Feb-11-1982 
write Se oy rejected by SORT i" the /REJECTED 
ah Fa. was not present. 
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1$-sep-19 $3243: 36 VAX=11 Bliss-32 V4.0-74 
7:52:06 DISKSVMSMASTER: CACC. SRCJSUMMARY .832; 1 


14-Sep-19 
v03-002 SPFO0081 Feb-06-1982 
Output delta “a "ta f 958t” ar format. 


v03-001 SPFO0071 Steve Forgey Jan-23-1982 
Include report item name in bar chart reports. 


i INCLUDE FILES i 


' SR SP Sw OSS SG SOS SSG SS SST SS STS SSH SSB SBS TE SSB Sete ao eeoa a See een oonnenon + 


REQUIRE ‘SRCS:ACCDEF'; ! Common ACC definitions 


Page 


2 
(1) 


2 
1Brseo-19R 25:48:54 VAR Blise32 v4i0-742 0 page 5 
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: 6 1313 ' 

; 7 1461! TABLE OF CONTENTS : 
7 18 1! ! 

: 8 1 $ 1 i Sr Se wre Demerara eH eernrareenrer wae — ee ww we @ oe we mw eet Se eee we Se Se we Se SE ww ausoun} 

: 1 1 

3 1 18 1 UNDECLARE 

; ¢ 1 1 RELEASE _TO_SORT, 

: 0 1 SUMMARIZE 

: & WRITE SUMMARY, 

: 5 § 1 FIND QATERMARK, 

: 1 WRITE_BAR GRAPH, 

H 3 ¢ : WRIT “TOTALS; 

; 89 § 1 FORWARD ROUTINE 

; 1 RELEASE_TO_SORT, ! Build keys and release to sort 

>: 91 09 3 1 SUMMARIZE, ' Summation main control loop 

; «9 09 1 BUILD_S ° ! Builds a summarization key 

s & 09 1 FIND 5 - ' Locates and allocates summary buckets 

: o O93 1 ACCUMULATE SUMMARY, ' Accumulates summary totals 

: 5 09 ; 1 WRITE SUMMARY, ' Output summary at end of file 

; «%6 0933 1 FIND GATERMARK, ! Determine peak values 

; «9? 0934 1 WRITE _BAR H, ‘ Output bar graphs 

; B 35 1 SETUP_GR ! Prepare to do bar graph 

; m4 3 ' WRITE-TOTALS; ! Output totals at end of program 
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' SO BSS SSB BETS SOSH Te PSSSSZBWHL#e FT BVB® Se Vt ee Sz TFs TZTSFsesSEre seo zeae reseeaoesesceceaes casve + 
i ‘ 
: GENERAL STORAGE DEFINITIONS : 
' SSC Fe CFB TB SCOP ST SPSS oS ASA eS SOwSe ES OMS ARH DORA DT HR SS DBVII RN SE SHSSSt oO MUBTeeMOsreewese + 
OWN 

hwm_bucket: ref a ° : Pointer to high watermark bucket 

lwm-bucket: ref vect i — to low watermark bucket 

key_desc: bblock dscSk_a ma i ~ oo key symbol descriptor 

reset dscSb., b “tet z “dscok. k-§ ass_d), 
¢ work descriptor 


reset dsc¥b 3. . gsc Tess 4), 

bar_char: tie gec$k a bln Bynanté work descriptor 

(ease b_class] = dsc$k cl ass 4), 

dsc$k_d_blin ! Bynamit work descriptor 

r sc$b class) = dsc$k class 

wdesc: bblock Cdsc$k_d_bin]  Bynantt work descriptor 
preset (Ldsc$b, tlass] = dsc$k _class_d); 


= 
—< 
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15-56 -1984 23:49:34 VAX-11 Bliss-32 V4.0-74 P 
127808=1382 97:83:86 NTEKSVMGHASTER SLAC SRCTSUMMARY.B32:10 7" “as 
GLOBAL ROUTINE RELEASE_TO_SORT ('NPUT, KEYS, TABLE, OUTPUT) = 


s 


Functional description 
This routine builds a concatenated key string sy standard 
sort key descriptors. And then release the record to the sort 
package. 

Input parameters 


i 

i 

i 

i 

i 

! 

' 

! 

: INPUT = Address of the input record 
KEYS = Address of a “y descriptor List head 
. a 

' 

i 

i 

! 

! 

' 

! 

! 


-o OEP Wr— 


TABLE = Address of key tab.ie 
Output parameters 
OUTPUT = Address of a buffer to recieve the concatenated key 


1 errors encountered are RETURNed immediately. 
TRUE is returned on a normal exit. 


PERE SS 


Wwn—o 


BEGIN 


EXTERNAL 
selected, ! Selected record count 
rejected_rab, ! Rejected record output file RAB 
version, ! Record format version 
sort_index_table: vector Cmax_sort+1, ee : 
! Sort key index table. 
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SNe 


input: ref bblock, 
keys: ref blockvector [ aygd-byted, ! Key descriptors 
table: ref blockvector * 3 !' Key table 


LOCAL 

! Key table index 

! Source string qeceeee 

' Source string length 
Temporary string descriptor 
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avw —. 
enu7 a 
van 
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. rox 
30 
oe 
ececace 


en, 
vector (2, long); 


1 
‘INITIALIZE THE DESCRIPTOR -- 
: Initialize a descriptor with the address and size of the 


: sort record including keys. 


SELECTONEU .version of 


acr$k_version }? 
es¢ (QJ = - input + input Cacc$w_msgsiz) - .output; 

Cacr$k_versionst, acr$ _version : 

res desc [0] = .input + .input Cacr$w_length]) - .output; 
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RY 18-53 5-1 249:34 VAX-11 ph ise =-32 v4.0-74 
-000 12780-1383 $9593 :8¢ DISKSVA TER: chee” SRC JSUMMARY .632;1 page | 
; «(181 101 
3 : ¢ : ’ desc C1] = .output; 
; ; ? } 1 Incr i teats -keys-2)<0,8> do 
; 1 1021 ndex = .sort_index_table (C.i]; ! Key table index 
. > 1 § srclen = .(. table ts ndex, sort _desc]); | So ource string length 
. 2 1 esrclen eql 0 
, 10246 4 then N 
3 1025 4 elected = .selected - 1; 
; 191 1 § 5 t PRESENT (REJECTED) 
3 136 1 4 then perform (write _binary (.input, rejected_rab)); 
: 13? : 3 return true; 
3; 195 1030 srcptr = .(.table C.index, sort desc] + 4);! Source string address 
3 136 1031 output = ch$copy ( ‘srclen, -srcptr, 
: 19 1 ¢ ' FILL character 
; 198 1 keys C.i, key_w_lengthi, ; Destination length 
; 199 10 soutput t); ! Destination address 
: 200 1035 END; 
: 201 10 
$ 4 1 ! 
; 20 1 i RELEASE TO SORT -- 
$ e4 : ; Release the record to the sort package. 
; 1041 
$ $$ 1 ¢ Return sor$Srelease_rec (desc); 
: 208 1 
; 209 1044 1€E 


-TITLE SUMMARY 
-IDENT \V04-000\ 
.PSECT DATA,NOEXE,2 
00000 HWM_BUCKET: 
00004 LWM_BUCKET: 
00# 00008 KEY_DESC: 


3 
BAR_FAO: .BYTE 


1 
18 BAR_CHAR: 


yoen000 15-00-1984 $ig3i8g | PE bdwBAAS Pens cAce secSsummany.e32:1°°° 


-EXTRN 
»PSECT 
oENTRY 


50 


VRIQOO 
—99NONOoO--2 Grows -0-0020 
nwooous Some oouoro> WoT 
2¢ 26 
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ss — Se 


ACCS_TOTAL 
ACES_INPOT 


ECORD 
ORSINIT_SORT 
SORSSORT_MERGE 

OMPARE 


I 
T 
« SHOW REC 
pet 


* TRANSLATE STATUS 
APH 


eg WRITE SUMMARY 
-§ LECTED 


CODE ,NOWRT ,2 
Rp.RI0,R11 nis- SORT, Save R2,R3,R4,R5,R6,R7,RE,-; 


VERSION, RO 
fev #2 


»_ INDEX 


; 
LtROs a 
} ) 
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SKSVMGHASTERSEACE SRCTSUMMARY.B32:9°%" (45 


000000006 DECL SELECT : 1025 
13 000000006 00 a3 BEE ie, auA IFIERS+2, 4$ : 1036 
000000906 PUSHAB RE) : ED_RAB 1 
000000006 9 CALLS ae WRITE BINARY : 
BLBC CS Atus, $ : 
0 MOVL Hi, R + 1028 
58 _ MOVL  4(R2), SRCPTR : 1 
8 ages PUSHAQ $cR8> Es ; 193s 
9E 00 68 m 4 MOVCS SRCLEN, (SRCPTR), #0, @(SP)+, @oUTPUT ; 
10 =A MOVL 3, OUTPUT ; 
AB aS A AOBLEQ R16, yy ; 1019 
F PUSHL  $P + 1042 
000000006 00 CALLS #1, SORSRELEASE_REC ones 


3; Routine Size: 148 bytes, Routine Base: CODE + 0000 
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13-00-1984 47:83:06 MacbinGaaS Tens cACe sac Ssunmany.032:1°%° (5) 


; 1 } 5 } GLOBAL ROUTINE SUMMARIZE (BUFFER) = 

i ie 

3 13 1 03 i Functional description 

; 9 1 1/ This reutine is pert ¢ f summarization logic. It is the main 

>; 218 1 1! control routine. it is s entered when a record is selected and 

: 13 : ; : the user has speci ed /SUMMARY. 

; 1 1055 1 symbol i constructed from the cheht which niayety weeps vee 

3 ¢ 1 $ 1! eae summarization Youcket to which § rece elongs. 

3 1 1! construction is driven by the List of summar ad on keys cupptied 

; ¢ : 38 } : by the user. 

3 6 ! 9 Example: If the user specified: 

; 8 : 1 | ACC /SUMMARY=(DAY, USER, ACCOUNT) 

: 1 1 i then a symbol (key) would be build out of a date string, username, 
: 1 ; 5 : } and account name from the record: 

; : 1969 1! YYYY MM DD USER=---= ACCOUNT---=- 

; ¢ 1908 ! : 1980 10 ROBERT VAS 

: 1990 1/ Next the summarization bucket for the key is located. If not found 
: IST ; then a new bucket is allocated and intialized. 

; 239 1078 1/ those the bucket is updated with the contents of the record. Only 
; 240 1074 1! — —? veguecess y the user via the /REPORT qualifier are 

: 241 1075 1! hat some fields are summed, some are mazimized, and 
3 r : 76 ! sone we wot 

; 44 8 i : Input parameters 

3 “3 ; 39 } BUFFER = Address of a record to be summed 

; 4 q 1 Output parameters 

; 39 ; + } Any errors encountered are RETURNed immediately. 

: é m § tence 

; 4 BEGIN 

; 1 LOCAL 

; 25 , bucket; ! Receives address of summation bucket 
: 33 ' rite: at (build_summary (.buffer, key_desc)); ! Build a summarization key 
: ) : Perform (find_summary (key_desc, bucket)); ! Locate the summary bucket 
; es \ Perform (accumulate_summary (.buffer, .bucket));! Merge this record 

: 265 109 

3 $8 1 return true; 

3 1 END; 


3; Routine Size: 
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54 bytes, Routine Base: CODE + 0094 


BUFFER 
# ACC LATE_ SUMMARY 
status, 1 

#1, R 
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$ 
V 


2 
1$-se0-1984 47:83:06 MMScounGMASTERc ACE sacSsummary.e32:1°%° <a} 
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ROUTINE BUILD_SUMMARY (BUFFER, KEY) = 


Functional description 


This routine is part of cusner ization logic. A summation | is 
built for the record contained in BUFFER. The user has supp ied 
al sf of sumnet on keys via the /SUMMARY=(key1, key2, ...) syntax. 
A string is by lt by appending the values associated with eac key 
for this particular record. 


Input parameters 


BUFFER = Address of a Newel 
KEY = Address of a dynamic descriptor to receive symbol 


ERIS SAIS AR INI OD 
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uw 
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Output parameters 


A summary key is built in the output key buffer. 
Any errors encountered are RETURNed immediately. 


BEGIN 


EXTERNAL 
sum_key_fao, ! FAO describing hey 
sum_key_value; ! Values matching FAO 


SUM_KEY_FAO is a descriptor of the gested key value. It is built out 
of the individual descriptors associated with each possible summation key. 


SUM_KEY VALUE is a table of addresses of values suitable for a FAOL call. 
{nis table matches the set of FAO directives in SUM_KEY_FAO and is built 
milar way. 


For construction details see PARSE_KEYS. 


perform (Lib$sys_faol (sum_key_fao, 0, .key, sum_key_value)); 
return true; 


ee a a ed a at od ot 2 Ss — 2 A 4 a a a a bd 4 ss 
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PERE 
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MEW OO 


eEXTRN SUM_KEY_FAO, SUM_KEY_VALUE 


Save nothi 
000000096 00 OF PUSHAB SUM_KEY_VALUE 
¢ OD PUSHL KEY 
000000006 BP SUSAR SUA KEY FAO 
000000006 £ CALLS #4 UIBSSS,FAOL 
t A BL US, 
0 1 BC = STAT $ 


voa000 1Posto-19te 47:33:08 BEScbUmGRASPERscACe SheSsummany.es2;1°% (a5 
OT Be 88838 1s: «= ReyGMT O £4 


; Routine Size: 33 bytes, Routine Base: CODE + OOCA 


Dus 


1Poseoctgee 25:49:54 vane etieeesz ve.0c74g rage 13 
ROUTINE FIND SUMMARY (KEY, BUCKET_ADR) = 


! Functional description 


fats routine is part of guaper tzetion logic. Given a summation 
Reve. i $s Mae ne locates the matching sunnat ion bucket. no 
matc ound, then a new bucket is al gatec and ae onvr y 5 
noe og a ee symbol table for this key. e value associated with 
the symbol is the address of the sookiaten bucket. 


t 

1 

i 

1 

t 

' 

i] 

' 

; Input parameters 
‘ KEY 2 Address of descriptor o1 summation key 
BUCKET_ADR = Address of longword to recieve bucket Y edéress 
i Output paraneters 

i 

v 

' 

t 


BUCKET_ADR is loaded with the peerece of he summation bucket. 
Any errors encountered are RETURNed immediately. 
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EXTERNAL 

bucket_size; ! Bucket size to allocate in bytes 
7 not ‘tee! symbol (summation_table, .key, .bucket_adr) ! New symbol? 

en 
(allocate (.bucket_size, .bucket_adr)); ! ¥, get bucket 
Orst it FF .bucket_size, ..bucket_adr);~ i Zero it 
P perform ¢ synbol~ 

oe ome table, .key, * ahah _adr)); ! Enter symbol 

return true; 


ad a ak a a ak ad 8 a wd 
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.EXTRN BUCKET_SIZE 
OOFC 00000 F 1ND_SUMMARY: 


eWOR sove Re Rs gyre Renn? 3 1146 
 heeerey ted i D0 rove reguge © : 1176 
000000006 9 at ae pos a 


es Held 


eoeeee006 “i 


soon 120% $3 £49:34 VAX-11 Bliss-32 V4.0-7 Page 14 
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MOVL UCKET_ADR 
movcS #0, (SPY, #6, RBUCKET _SIZE, (R6) 


R6 


000000006 e8 cAL Hat YMBOL 
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3 Routine Size: 71 bytes, | Routine Base: CODE + OOEB 
; 


3 
04-000 HEcSewctOGe F469:35 YMTINBUEERE Ate" sheSsunmany.os2:4°?™ i 


index; ' Index to summation bucket item 


ate Bm report_value table build by oree keys accumulate data 
nt ey! array. Each entry in the report_value vector contains 
the address of a structure that describes a report item. 


RANVLSSSELE 


i ot 


Index = 1; ' First bucket_item reserved 
Incr i to .report_items - 1 do 


S8288 


BIND rep_item = -report_valug f.i}: vect oP: 


}} 7 ! ROUTINE ACCUMULATE_SUMMARY (BUFFER, BUCKET) = 

1 1 Pons 

1191 ' Functional description 

1198 1 This routine is part of summarization logic. It is called to 
1196 1! merge @ given record into its summation bucket. The values to 
1195 1! be merged are determined by the List of values to be reported 
1196 1! given with the /REPORT=(vali, val2, ..,) syntax, plus some 
1130 } : Standard values that are always summarized. 

1199 1 Summation bucket elements may be manipulated in any of the 
: 4 : : following ways: 

1 0¢ 1 i Addition (e.g. connect time) 

1205 1! Integration (e.g. CPUTIM * WSPEAK) 

1206 1! Incrementing (e.g. count ing records) 

; 05 : : Maximizing (e.g. generating a watermark) 

' 0? ! Input parameters 

1209 1! BUFFER = Address of a record to be summed 

: A9 : : BUCKET = Address of a summation bucket 

i 3 ' ; Output parameters 

i 6 1 ; Any errors encountered are RETURNed immediately. 

4B hes 

; i BEGIN 

122 EXTERNAL 

1221 report_items, ' Number of report items 

; ¢ report_value: vector (); ' Table of pointers to offsets 
1224 MAP 

1225 bucket: ref vector £2. ' Summary array 

: $ buffer: ref bblock (J; ' Record buffer 

; LOCAL 
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case .rep_item ([sum_ent_type 
SET me 
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3 
NERSOCHORS GGSSSSYINcHLABhgtcBectte°s 
ee sizbee te” didex) = .bucket C.index] + ..rep_item Csum_ent_adrj; 


Csum_t 
Ber here tk ad bSad x ¢ 
bucket = Jngond. -tep_item Csum_ent ogra 
bucket L.index], rep_Ttem Csum_ént_6s zed)); 


Csum_t 
md ad ae index) = maxu (.bucket C.index], ..rep_item Csum_ent_adrJ]); 


Csum_t i 
4 Bucket PF dex) = .bucket C.index] + 1; 


a DPE Tee Tncale nectenl enia ee tant t_adr] 
rs r CaccSw_m eqlu sum_ent_adr 
then bucket f° ne Whether t {nde at 1; 

Coun, type_olapls 


TES; 
regen = .index + .rep_item Csum_ent_bsize); 


return true; 


at bey, ty sth the 


.EXTRN REPORT_ITEMS, REPORT_VALUE 


003C 00000 ACCUMULATE SUMMARY: 
-WORD Save R2,R3,R4,R5 


52 1D : MOVL #1, INDEX © 
55 000000006 D MOVL REPORT_ITERS, RS 
54 1 ce c MNEGL #1, I 
60 F BRB § 
53 0000000060044 00 09011 18: MOVL EPORT VAL C1), R3 
00 3 CF 00019 CASEL (R3) _@ 
0014 ¢ 1p 2s: <WORD 3$-2$,- 
50 2 4$-2$;- 
$-2$.- 
:- $,- 
= $.- 
9$- $ 
08 BC42 04 gs ADDL2 ae ), @BUCKETCINDEX) 
: & PUSHAB 8(R3) 
BC4 PUSHAL seut KETCINDEX] 
a PUSHL 
8 BC4 PUSHAL sm INDEX) 
000000006 CALLS 
4 0 BLBS starve’ 
5 08 BC4 MOVL CKETCINDEX], RO 
0% 8B $8 CMPL Hie sats) 


sya iEseoctage PARR MAAN 
BGEQU 

MOVE RO, ae ; 
CMPIV , #16, @BUFFER, 4(R3) ; 1259 


INCL scuShe oes ; 1260 


I 3 
a: rb 9 


5 
08 aces 
046 AS 06 «BC 10 


iH 
9C 4 
0 


Se 4 
g 
SSSSaF 
oo*no-om—oco— 
FOnMCaWo COM 


Ounp & 
—= 


3; Routine Size: 121 bytes, Routine Base: CODE + 0132 


3 
summary 1Soseortgne 25:49:54 VAN-HT BLatr 82 Y4202744. aaaey s2, £80" off 


; $] } a! ! GLOBAL ROUTINE WRITE_SUMMARY (key, data) = 
ee 

3 445 i 3 ' Functional description 

> 46 1 i] 1 i This routine is called to output sunmar ization Lines. 

; 44 1 i 1! These Lines are accumulated and totals Lines are output 

: $33 : 3 } each time a key break occurs 

; 4 1 1 1 Input parameters 

: 4 ‘ 1 1 i KEY = Address of descriptor of symbol . 

; 4 1 1! DATA = Address of a summation bucket 

2 ae ae 

; 4 4 i Output parameters 

; 438 i i Any errors encountered are RETURNed immediately. 

: 461 i — 

; ass i BEGIN 

> 465 1 EXTERNAL 

3 $66 1 report_items, 

>; 46 1 report_value: vector (J, 

; 468 1 report_hdri_fao, ' Report header 1 FAO string 
; 469 1 report_hdr2_fao, ' Report header 2 FAO string 
: 470 1 report_det_Tao; ' Report detail FAO string 

: Oh i OWN 

: 467 1 title desc :bblogk Cdsc$k_d_bin] ! Allocate Geente descriptor 
> 474 1 reset(Cdsc$b_class)] = dsc$k_class_d), 

; 475 1 first: initial (true), ' First time switch 

3 on : fao_list: VECTOR CMAX_REPORT+2); 

> 478 1 LOCAL 

; 479 1 index_src, 

: 480 1310 index_dst; 

UM baw 

: 6 1 5 report_hdri_fao: bblock, ! Upper report header 

; 4 1314 report hdré fao: sock. ' Lower report header 

; 485 1315 key: fef bBlock ‘“ ' Symbol descriptor 

$ : ; g data: ref vector (J; ' Summation record 

: 6 1 If .first then 

; 3 i PE GERNAL tirst_dat t_dat 

3 rst_date, last_date; 

3; «491 1 PtrceA, qatel i ze = 33 dates size = 21; ! Length of date strings 
3 $3 : § LOCAL fill; 

: 694 1324 First = false: ' Clear switch 

; 4695 1325 SET SCROLL (5, SCREEN (Length)); ' Only effects vt100's 
: 436 ' § ERASE_PAGE (); ! Erase entire screen 
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4] 


an 
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Ft ot 


Fond ak at 


vuvv0v 


md ed od ed ad dd dd od od = dd dd tt 


fao_ 


H VALUE (° rye 4g ent tg desc); 
UC = este = act's 
a 


if titles dtc tie = ge Mint Sh gtru .fill 


ignat —y, titletrunc }-, fill); 
ite desc Casc$w_length) = .fill: 


p19 


} Get the t 


VAX-11 Bliss-32 V4.0-7 


Be 4733506 


Compute pis, aa title area 


! If title is too long 


== then warn user 
== truncate title 


fill = eat = .title_desc Cdsc$w_length] + 2; 


ata Lae nagte. (AD ( "From: 


fi 

i 

f e-dgic. + .fill mod 2, 
ast_date)); 


tf 

t 

INE (XFAO (report_hdri_fao)); 
INE om (report. hdrew fao)); 
INE (XFAO (AD (' 

port_ Nae _fao tdsesw _length])); 


title 
. fi 
las 
WRITE_L 
WRITE- e 
WRITE- s F 
re 
END; 

List CO) = .key; 


index_src = 1; 
index dst = 1; 
Incr {to -report_ items - 1 do 


BIND rep_item = .report_value C.iJ: vector (); 


i summation value address. 


' 
: Check the field Length. 
4 


Fs it i 
af ofan, tte en m [sum_ent. bsize] eu | 


src], Bret ( F data 


!172D!#e LAS!#® To: !17%D"), 


-""From'’ da 

fill tot tle 
“title 
“fill obey title 
-""To"’ Dat 


Write report header 1 
Write report header 2 
Underline them 


Store address of symbol desc 
as first data item 


If 1 then copy the summation value. Else copy the 


index sir, + A2f data C.index src], data C.index_src)); 


~ index_ srtJ); 


f ndex_dst) = .data C.index_src) 
else eeern 

eyLa IN egy (dati 

emul (ire - — 

fao_list singer ait * date TIndex_src 

index_dst =. 


Write_line (XFAOL (report_det_fao, fao_list [0])); 


fao.t list C. index “ast . ‘oe C.index_srcj; 


index_src = .index_src + .rep_item Csum_ent_bsize]; 
index. dst = .index-dst ¢ i; 


return true; 
END 


! Output a detail Line 
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summany 1S-sen-1964 25:49:54 YAN IT, OListc82_Y4202743 ony gs2, 480" 60 


00# 00030 TITLE_DE 


02 
K 
00000001 $e FIRST: tO 
C FAO_LIST: 


oie HE 


OFFC 00000 


00 00 00 45 4C 54 


oo 6 OR a St SOR OR SS 


le ed ed a ed a ed 
O@oronrnran 
vw 
7 
> 
> 
o 


-PSECT 


SC: 
-BYT 
T 


el 
-ADDRESS P 


SASCII 


DATA,NOEXE ,2 


- 


1 
128 
CODE ,NOWRT 2 


1 
\TITLE\<0><0><0> 


.AAB 
\From: !17%D!#* !AS!#* To: !17%0\<0> 


«LONG 31 
eADDRESS P.AAD 


-ASCI 


\!to\ 


-LONG 
eADDRESS P.AAF 


-EXTRN 
- ENTRY 


REPORT _HDR1_FAO 


R FIRST. DATE 
LAST DATE E “scRése! SCRO 

CREEN ERASE OPAGE 
tt ger’ VALUE, SCRSPUT-LINE 


— 


RST 
REEN_CHAR*6, -(SP) 


- SCRSSET_SCROLL 
TAT 


VYWDRBeenevrzdeauvn 


“~On——-4 


3 
> 2 
= 
mn 
& 


ISGET_VALUE 
CHARTS, FILL 


zuvev 
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ss 
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ae 
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. (=) Cw) Cw) 
vu wn ~ Wy wn" 
[y) w a w w 
w a Ne a a 
. £3, ws * 2 gs 2 Zs 2 
“ ——s 

ws 5 wo “ . 2 = “ws 22 = “ 22 = 
|) e«caoc a —_— ve a a wee a a venues =) 
- _ ‘oo “ t. 4 a i) ow te d ives te a 
_ ws = ut & ” _ wn — Dae awn — 
— ee ee = AWOV §+HYRvVDMe VUE>NRVIDYMO vue vw 

KORN men w ss GeMwYW VWDMWw!8 OMe WMMOMDOMA. DO wmvnawn ry.) ~ 
. =O JEROME UIRKMaedw He —- Aaraewwrtr— wR AHKHewwTte —- a 
~o —@Oe-anw Mewdstiac -oa0oa @< -2Aacdc mMewacon We Occ mwmwoeea @et oct ws 
- - ew 4BOe=MEO Be OH YEU Ow EE MEU MY BE te Oe UP Ow” 
ead Oj Went wm Bem ReeVIM5D4U OOD) wee aVDuMw> 1 aMDu uid I 

ws Vv at CO NDF avons lm —- wD>D> a —- w i a 

Sm ee En REA E SO RAO K ARS RMON AAO en, ER 
Re ee eee ena ha CEDAR Ee laSSaeeausecuese eaeueeane 
>Dy4U4UHM 3m Sa2m « “ “ 8 “” “ S “ “ 
~wOTIITIu3™~I<on™ aiJI> zx + ajisvaonm aJVEIJVon aJVEIjVvd 
ets BGIA=2OA2255— SBABGGG ISOS A>O>PHPHGOS 2A Oo 2a Baa a SS 32g uS<O 20 
vu aaceenereraouww Sete titiieret rie titt ieee spent td 


aDonooDouwmwna om ED uw @ooe u. @OC ow @Qoor uv ease te to - 
S@3S32Smnconmeo SSS S55 CSTs SSSA. 4 4 DOS e DOT ONS SOL SUL ou 


Ver & PUI OO— NO DBDOVUWMON— 
SYNSSONSRISSLSSSSISS SASSANLSANSS SS ASSARASRASS LL SSRALSARS 


oO 


2 sg geRE 8 oi 8 m= 3 
S 4 °3s ew o o 
3 3 

= SSAAARSS Ants BSNS SAALK<SZ SAS SASK SAAR SAanr 


o 
Oo ov @ow wo 
: oo oo Ss 


50 
$f 
1 


69 


52 
7E 
51 


1Eet94e FARES YMGHARUIER A LSsummany.050:09% 68 


08 A 02 Sf 00139 MOVIWL #512, SSBUFEDESC ; 
car Ar 001 3F MOVAB $SBUFFER $SBUF FDESC 4 3 
7E 000000006 00144 ROV ZL REPORT_HOR1_FAO, -(SP) : 
AE 9F 0014 PUSHAB § UF FBESC : 
AE 9F 001 PUSHAB $SBUFFDESC ; 
FE F 001 PUSHAB P.AAE : 
4 FB 001 CALLS #4, LIBSSYS_FAO : 
D0 001 ROVE = RO; STATUS : 
i 0158 BLB situs F 
08 AE 9F 001 f PUSHAB cr bE SC 3 
A FB 001 CALLS #3, SCREPUT_LINE : 
; 101 ROVE = RO, STATUS : 
0088 D167 68 LB Atus, 3 
oc ag 04 “AC 00 00160 75: MOVL KEY, FAQ LIST : 1352 
H 00 001 MOVL #1, INDER_SRC : 1354 
1 00 0017 MOVL #1. INDEX"DST : 1355 
000000006 DO 0017 ROVE REPORT ITERS, R8 ; 1356 
a i! 
§ 00000 6004? 00 ti 8s: MOVL § REPORT_VALUELIJ, R6 : 1358 
BC44 DE 0018C MOVAL a@DATALINDEX_SRCS, RS 71 
1 ag 10191 CHPL = 8(R6), #1 31 
OC A942 3 90 0019 MOVL (RS), FAO_LISTCINDEX_DST) 3 1366 
11 0019¢ BRB «108 ; 
DD QO19E 98: PUSHL R : 1369 
DD OO1A PUSHL R ; 
53 08 B44 DE O01 MOVAL QDATACINDEX SRC], RS ; 
000000006 03 FB OOIAA CALLS se SDAY ; 
65 00 83 00018640 BF FA 0181 MUL bob06 (RS), #0, (R5) : 1370 
Oc A942 08 A3 DO OO1BA VE —- (R3),,_ FAO_LISTCINDEX_DSTI 1371 
D6 001C INCL INDEX. DST : 137 
OC A942 DO 001C MOVL. &5, FRO_LISTCINDEX_DST) : 137 
54 08 CO OO1C? 10$: ADDL2 BC RG), INDEX_SRC 3 137 
06 O01CB INCL INDEX DST > 1376 
B3 ? ICD 118: —ADBLSS RB. I> BS 2 1358 
8 A Oe r St Boibe oy OR " 
bee 10 Ag 01DA ROVAB SSBUFFER, SSBUFFDESC+4 ; 
C AD OF OO1DF PUSHAB FAO LISI ; 
AE 9F OO1E PUSHAB SsB0F DESC 3 
AE 9F 001 PUSHAB FDES¢ ; 
0000000 F 001 PUSHAB REPORT DET FAO 3 
000000006 FB OIE CALLS #4, L168 SYS_FAOL ; 
101 MOVE §—-RO.STATY ; 
C 3 101 F BLBC StAtUs $ ; 
08 F OO1F PUS FOES 3 
: BR SSF ALS bs SERHT tan : 
EB OC Ms 3 hross W8s : 
000000006 PB 90809 CALLS. BT LV 18SS]GNAL 
8 ¢ ROVL STATUS. RO ; 
50 01 00 00214 138: MOV. #1, RO : 1381 


3 
RY 18-5 -1 2:49:34 VAX-11 Bliss-32 V4.0-74 3 
yoen000 12-8007} 3be #3 363:3¢ DISKSVMSMASTER: CACC. SRCJSUMMARY. 832; [ al 5 
04 00217 RET 3; 1382 
; Routine Size: 536 bytes, Routine Base: CODE + 01F0O 


: 


1$-sen-1984 $7:93:3¢ Ma cbUnGaAg Tens cAce sac Ssunmany.032:1°% (108 


: 2¢ } ! GLOBAL ROUTINE FIND_WATERMARK (BUFFER, BUCKET) = 

4 leeoee 

: 388 1388 1 | 

: 8 } : Functional description 

: 560 1 1! This routine is cal ed to scan he guaner' tens ton bychets 

> 361 1 1/ and de orerns the high watermark for write An 

3 $6 1391 1/ summarization bucket is allocated qne f isa ’ th the. highest 

3 o7 ! i } value encountered for each bucket item. 

3 65 i 4 Input parameters 

: $ 1 38 1/ BUFFER = Address of a record to be summed 

3 os : M : BUCKET = Address of a summation bucket 

: 0 1 38 1/ Output parameters 

3; 571 1400 1: 

3 z 1408 } Any errors encountered are RETURNed immediately. 

: 574 1403 1 i-e-- 

3 Sf 1202 1 

3 ? 1406 BEGIN 

: 578 14 EXTERNAL 

3; $79 1208 bucket ~gize. ! Size of a summation bucket 

3 $9 14 report_item ' Number of report items 

3 Be 1019 report_ “salues vector (]; ! Table of pointers to offsets 
; 141 

3 Bi 1218 bucket: ref vector fd. ' Summary array 

3 Be et buffer: ref bblock ! Record buffer 

; 1616 3 LOCAL 

3 13) index; ! Index to bucket items 

; 590 1418 If -hum bucket eql 0 ! If no bucket allocated yet 

; 591 14 then BEGIN 

: 3 1421 perform (allocate (.bucket_size, lwm_bucket)); ! y afer ie sou bucket 
; 59 14 ¢ per sore (allocate (.bucket— ~5{2e. hua- “bucket)); i high bucket 
3 594 14 cnet il q - sbucket ts ze, .lwm_buckét); i ane with high values 
3; 595 1424 ch$fill (0, .bucket_Size, .hwm a Bucket); i FILL with low values 
; 38 1¢ 5 END; 

2 car 

: 14 3 i For each report item, maximize the value stored in the water 

3 1 14 : ches with itself and the value stored in the current summat “ bucket. 
3 § 14 ! Rinia ze the value with the one stored in the lowwatermark bucket and 
: 14 § ' store 

: 605 14 , 

; 14 5 2 Index = 1; ! First bucket_item reserved 

; 1° Ince { to -report_items - 1 do 

; 610 14 BIND rep_item = .report_value (.iJ: vector (); 


3 
1Brsep-1984 25:49:84 VAN-HT BLisecB2 ve-OA742 Page, 26 


PIAA AAAAD 
VUPwn— EWN —OODNOUL WN S 


i Check the field Length. If 1 then do a simple MAXU function to 
! determine watermark. Else assume Length is 2 and do a COMPARE_QUAD. 
! Do a MINU or COMPARE_QUAD for the minimum value 


if ‘t item Csum_ent_bsize] eqi 1 
then BEGIN 
hwm_bucket [C.index] = maxu (.hwm_bucket C.index], .bucket ([.index]); 
sim SURES cindex] = minu (.lwmbucket C.indexJ, .bucket C.indexJ); 
GIN 
COMPARE QUAD (bucket C.index), GTRU, pun. pucker - index)) 
then MOVE_GUAD (bucket C. index), hwm bucket C.indexJ); 


if COMPARE QUAD (bucket ( index. LSSU, Lva_pucket f; indexd) 
ene MOVE_GUAD (bucket C. index), lwm_bucket [.indexJ); 


DONAVE AN $$ OS OONOULS WO 


PUPP PVPS EB BS EE 


3 


index = .index + .rep_item Csum_ent_bsize); 


return true; 
END; 


AAO 


wn 


ed ed 88 td od 8 a ss td ts ad — 4) 4 8 2 ts td 5 
SREP E EEE EEE P EEE PEEP PPP PEE 


4 
4 
¢ et 
else 
5 
& 
4 
5 


PAAEAAAAAAAAAAA AAO 


$ 


O3FC 00000 ENTRY FIND WATERMARK, Save R2.R3.R4.R5.R6.R7.R8,- 
ALLOCATE, R9 

BUCKET SIZE. 88 

HWM_BUCKET, R7 
WWM_BUCKET 

E 
TE 


i 
8 CKET SI 
5 hrs. } 
imate ita Te @LWM_BUCKET 
#0, (SP), #0, R6, @HWM_BUCKET 
° ° poex 
12$ 


eS Hribal» 


T 
Z 
A 
4 
Z 
A 
$ 


E 
TE 


SF 


FESSLLISLSS SVSVSVSUVITSS 


=o ROOM NS O-o 
mmoomoe & Sorawaooons 
<a 
+. i 


vou-000 Posen 1944 7:33:08 UTSKSvNgHASTERsCACE shcSsuMmany.032;1¢%° (108 


33 4 8746 DE 0005 MOVAL — LWH BUCKETCINDEX, RS : 1450 
1 D006 NE : 
5 06 0006 MOVL (RI), R 3 1449 
6 06 CMP » (RO ; 
BGEGU ; 
ef BO 008 ROVE | AS, ERI 
3 00 000 MOVE (RS). 1450 
6 D0 a4 Ree trO 
00 7t Rov. {Roy 
10080 MOVL Re, tr 
0008 Bra stié‘d'T GS 3 1447 
06 Al 06 A 0008 CMPL = (RO), 4(R1) 3 1453 
DOOF BN $ : 
61 008 C RO), (RI) ; 
900 BLE $ 3 
6 000 MOVa © (RO), (RI) : 14 
06 A 06 A 1005 CMPL = (ROS, 4(R3) ; 14 
BNE 10 ; 
63 dO¢ CHPL (RO), (RS) ; 
3 D0¢ mova. (RO), (R3) 1457 
4 AS CO 000 ADDL2. (R55, INDEX ; 14 
98 000000 F2 00C AOBLSS REPORT_ITEMS, I, 48 ; 14 
tf Rha a: 


3; Routine Size: 179 bytes, Routine Base: CODE + 0408 


Y i8-se =] 249: VAX-11 Bliss-32 V4.0- 7 
~000 VeaeeeaTSRS FFE3i8g Naa FERS Kee shCSsunmany.e32:10 8 «rts 
; o8 1963 } GLOBAL ROUTINE WRITE_BAR_GRAPH (key, data) = 
eB 
: 661 14 | Functional description 
; oc8 1471 1: This routine is called to output summarization totals in 
> 6446 14 1! the form of ? ber graph. For each invocation it outputs 
: 645 Volz : } @ summarization key and a horizontal bar. 
; $e} 1475 1! The Length of the bar is based on the number Ao exe] teste 
3 one 1078 i! columns and the highest value found for the re 
; 646 16 1! The highest value has been previously obtained ak FINS” _WATERMARK 
; ? . 1o08 : and is available in a watermark_bucket built by that subroutine. 
; 6 1480 1 ! Input parameters 
3; ¢ 1481 1! 
3; § 14 ¢ 1! KEY = Address of descriptor of symbol 
3 ? 5 3% : DATA = Address of a summation bucket 
; 63? +e 5 : ; Output parameters 
; re 1eBs 1! Any errors encountered are RETURNed immediately. 
; 660 1488 1! 
: oss 1491 BEGIN 
: 665 1298 EXTERNAL 
3 666 1494 report t_velue; vector (CJ, 
; 66 1495 report_hdri_fao: bblock fF}. ' First header for symbol column 
; 668 re report_hdr2_fao: bblock (1; ' Second header for symbol column 
: 853 1298 § GLOBAL 
; ee th 44 reset_graph: initial (true); ! Triggers graph initialization 
: 67 1501 2 OWN 
3 6746 1 0 title _desc:bblock Cdsc$k_d_bin] ! Allocate rpm descriptor 
s 67? : 0 preset ( dsc$b_class] = dsc$k_class_d 
: 679 1505 2 LOCAL 
; 678 1 worth; ! Worth of column 
; 679 : aaa 
: res] 1 88 ob ref bblock fg. ! Symbol descriptor 
: ose : \9 a: ref vector (J; i Summation record 
; 151 If preset. raph then 
LS TR 1 Bille irr gees i 
: 1515 Laer ft gatel_s ze = 335 aetes size = 21; ! Length of date strings 
| 138 
: 630 1 4 reset pie = false; ! Clear switch 
: 69 Pp 1 rtore iset raph ( 
: 69 P 1 - Sbucket (03, 1 Rinteum value 


: 


SeSeeses 


NNN 
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ONO MEWN "OO OONOU SW —O 


Sa iy Pip Mi ip, Mi, Pin. in. ip. ie Pe iy Me ey ey ye | 


vuvUU 
a a ee ee ee ee ee ee ee ee ee ee ee ee ee eee 


vuv0v 


18-sep 


ey tascty_ten 

dsc ength)+columns_ per_group, 
corte’ 

GET_VALUE ("BAR_GRAPH", bar_char); 


perform (str$append (bar_ pete bar ed ft 


perform (str$append (bar_fao ris!) 
perform (strSappend (report. hard. fao, A 
SET_SCROLL (5, SCREEN (Length) - 1); 
ERASE_PAGE (); 

GET_VALUE ('TITLE’, title_desc); 


fill = SCREEN (width) - 
= datel_size - dated_size; 


if .title_desc Cdsc$w_length] gtru .fill 
then BEGIN 


signal (acc$_titletrunc,1, petit: 
sie. desc Cdsc$w_length] = . fill: 


fill = .fill = .title_desc Cdsc$w_length) + 2; 
WRITE LINE (XEAO (AD (*From: !178D!ee !AS!#* To: S178D)), 
firs gre ! ="From'’ date 
"Ht? " ' fill to title 
title geet ' etitle 
tite, fill mod 2, ! fill after title 
last_date)); ! "To" Date 
WRITE_LINE (report_hdri_fao); ! Write report header 1 
WRITE-LINE (report shdree tao); ! Write report header 2 
WRITE_LINE (XF Rp (‘Te i Underline 
sreport_hdr2_ XK CdseSu _length})); i “-Header Length 
END; 


Perform (LibSsys ~. 


desc, 
data C1) / .worth)); 


Incra ptr from .desc CdecSa pointer? t 
ay Casche, poingers + .desc 
(.ptrd< 


rep_item = .report_ 


Nad =¥2! C9); vector (); 
us rep ai Csum_ent_bSize] eql 


S-seoctges 3:48:54 


“Rida tao -1 by columns_per_group 


! Get graphing character 
perform (strS$append (bar_fao, ad (°!132<!#e')));! Load descriptor 


! Only effects vt100's 
! Erase entire screen 


VAX-11 Bliss-32 V4.0-7 ¢8 
DISKSVMSMASTER: cheeosre SUMMARY .B832; " ade ) 
! Maximum v yoiee 

' Reserve left margin 

' Receives computed worth 

! Receives header string 


pend to descriptor 
append to descriptor 
! Append graph header to symhdr 


Get the title 
Compute available title area 


If title is too long 


-- then warn user 
Truncate title if necessary 


; uli a bar 
-FAO control string 
“ne output byte count 
“output buffer 
“length of bar 


35 


>_> >>> 


NONE WIN 


PPP ie 
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w 
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P1579 4 WRITE_LINE (XFAO (AD ("!@<!AS!9UL !AS!>"), ' =_s Paairy 5 ant 
P1580 4 report, hdr2_fao Cdsc$w_lengthJ, i ze 
P 1 q key. } > a deacripter 
P 1 4 -data (1), ! edata value 
1 & desc)); ! bar deacripter 
1 4 END 
1585 4 else BEGIN 
1 4 OWN 
1 4 day 
1 & post Midnight: vector (2); 
1 & Pye LEN ¢ 
1 4 Lib a toi C1), post midnight); 
1 4 emul ( re posta nidhight. Er tret (0). post, midnight); 
P 1 ; 4 WRITE_LINE vight 3 Write detail Line 
P1593 4 x Bis y hd they fdsesu em i “=maximum Line size 
P 1594 4 ° uey. ! key descriptor 
P 1595 4 -d ay. ! eday value 
P 1 38 4 post_midnight, ! time value 
1597 4 desc)); ! bar veer ioter 
1598 END; 
1599 END; 
1600 return true; 
1601 END; 
-PSECT DATA,NOEXE,2 
00000001 OO0BC RESET eet 
00# 000CO TITLE pest: 
-BYTE gcs3 
02 990c> BYTE 
C4 -BLKB 4 
0C8 D -BLKB 4 
OOCC Post MIDNIGHT: 
-—BLKB 8 
-PSECT CODE,NOWRT,2 
00488 -BLKB 1 
00 00 00 48 SO 41 S2 47 SF 00 aC BAAN: “ASCII \BAR_GRAPH\<0><0><0> 
tle e 3 e 
D04¢ “ADDRESS, P; AAH 
2a 23 21 3c 32 D040 P.AAJ: ASCII \!432<iae\ 
D0 P.AAL: .LONG .. 
! 45 ADDRESS “ 
00 DOGEO P.AAL: .ASCII yiste ><0> 
DOGE4 PLAAK: LONG 2 
DOES “ADDRESS P.AAL 
00 00 00 45 4€ 4! Ff P.AAN: .ASCII \TI iME\<0><0><0> 
DOGF4 PLAAM: LONG = 5 
3 1 $5 5 7 1 0 3A if 43 P.AAP *AReT \From — '172D' #2 'AS'#* To 
JU eo 2 . . . o . : 
RHHHHRERRRES a 
0051C P.AAO: .LONG 31 


VAX-11 BLiss-32 V4.0-7 
DISKSVMSMASTER: CACC. SRe SUMMARY .B32; 1 


!172D\<0> 


Page ats 


yoe~000 . DESKSVMEMASTERSLACE SRCTSUMMARY 8325907 (175 
ADDRESS P.AAP : 
“ASCH \laee\ 

21 53 41 21 20 4¢ 55 39 21 53 41 21 : “ASCIT \taet AS !9UL 1AS!D>\ 
HODRESS P.AAT 

20 54 25 21 20 4¢ 55 32 21 53 41 31 : ASCII \!M<!AS!2UL !2T !AS!>\ 


Sete Ge Ge Se Se Se Se Fe Se Se 


-LONG 20 
«ADDRESS P.AAV 


- ENTRY 


YSTPAQ. RS 
T_ADR2_FAO, R4 
R3 

SP), SP 
T_GRAPH, 1$ 


ET_GRAPH 
WORTH 
axe, -(SP) 
#15, (SP) 
HWM BUCKET, RO 
4(RO) 
Lun BUCKET, RO 
sarge 
BAR_CHAR 
#2, CLISGET_VALUE 
PAA 
BAR_FAO 
#2, “STRSAPPEND 
STATUS, 2$ 
BAR 


BAR-FAO 

#2, STRSAPPEND 

STATUS, <3 
AAK 

BAR_FAO 

#2, “STRSAPPEND 

stAtus, 2$ 


R4 
#2, STRSAPPEND 


§ 
: 
: 
: 
| 
: 


E 
C 
C 
6 
C 
5 
LA 
0 
4 
A 
A 
A 
5 
A 
3 
A 
A 
3 
A 
A 
3 
A 
| 
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01 50 if 2s: BLBs STATUS, 3$ ; 
7E 000000006 00 ¢ 3$: MOVZWL SCREEN_CHAR+6, -(SP) t 1534 
d DECL (SP) : 
DD PUSHL ; 
000000006 9 F CALLS #2, SCRSSET_SCROLL : 
D MOVL RO, STATU : 
E E BLBC = STATUS, ; 
DD PUSHL #1 + 1536 
1 OO PUSHL # : 
000000006 9 F CALLS #2, SCRSERASE_PAGE : 
MOVL RO, STAT : 
C 4$: BLBC = STATUS ; 
00A0 )«OC3COSF PUSHAB TITLE_bESC : 1538 
2¢ «AT OOF SHAB  P.AAM : 
9 : 8 CALLS #2, CLISGET_VALUE 3 
000000006 § MOVZWL SCREEN CHAR?4, FILL + 1541 
C SUBL2 #46, + 3 
52 0OAO «C3 1 D 000D CMPZV #0, #16, TITLE_DESC, FILL + 1543 
B OO0E BLEQU 5$ : 
52 DD PUSHL FILL + 1545 
DD PUSHL ; 
000000006 8F DD O00E PUSHL #ACC$_TITLETRUNC ; 
A FB f CALLS #3, LYBSSIGNAL 3 
00A0 «C3 : OF MOVW = FILL TITLE_DES * 1546 
00a0 ¢ : OFA S$: MOVZWL TaTLE DESC, “R : 1549 
50 OFF SUBL3 RO, FILL, RO ; 
02 AO SE 0108 MOVAB 2(RO), FILL : 
7E 01 7D 0010 mova #1, =(SP) : 1556 
oC A 0200 8F 3C OO10A MOVZWL #512, S$SBUFFDESC : 
10 A 14 AE OE 110 MOVAB  S$S$BUFFER, S$SBUFFDESC+4 F 
000000006 0 9F 0011 SHAB LAST_DATE : 
50 7 00118 DIVL3 #2, FILL, R 3 
7E 00 5 01 7A OO11F EMUL #1. FILL, #0, -(SP) : 
51 1 02 7B 00124 EDIV. #2, (SP)+, RI, RI ; 
6140 9F 00129. PUSHAB (R1)CROJ ; 
00A0 ¢ 9F 001 PUSHAB TITLE _DESC : 
D 001 PUSHL R ; 
000000006 00 9F 001 PUS FIRS ATE : 
0 AE 9F 001 PUSHAB $$BUFFDESC : 
4 Ag F 001 PUSHAB $SBUFFDESC ; 
4 A? 9F 001 PUSHAB P.AAO ; 
65 FB 0014 CALLS 48, LIBSSYS_FAO : 
38 D 144 MOVL RO. STAT : 
é 147 68: BLBC stArus : 
Oc AE SF OO14A PUSHAB UFF DESC ; 
as FB 0014 CALLS #3, SCRSPUT_LINE : 
1 MOVL RO, STAT : 
4c 1 BLBC STA : 
7E D 001 mMOVa =s-s#1, = : 1558 
000000006 9F 001 PUSHAB REPORT_HDR1_FAO ; 
FB O0015F CALLS #3, SCRSPUT“LINE ; 
Bite OE tage : 
E 5 1 a 6, -<§P) : 1559 
4 Dd 001 PUSHL Rs : 
66 3 FB 00160 CALLS #3, SCRSPUT_LINE : 
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2 : 17 MOVL RO STATUS ; 
b if aT tir eps : 1561 
o¢ E 0200 8F 3¢ 001 MOVZWL Ate SBUF FDESC : 
10 AE 14 AE E OO17F MOVAB  S$SBUFFER SSBUFFOESC 4 : 
C 001 MOVZWL REPORT HOR2_FAO, =(SP) : 
10 Ae 9F 00187 PUSHAB $S$BUFFDESC ; 
14 AE F OO1BA PUSHAB $SBUFFDESC ; 
60 A? 9F 001 PUSHAB P.AAQ : 
4 FB 001 CALLS #4, L 1BSS¥S_FAO ; 
9 DO 001 MOVL RO. STATUS : 
3 001 BLBC Stary $ : 
Oc AE SF 001 SHAB UFF ESC ; 
FB 0019¢ CALLS #3, SCRSPUT_LINE : 
DO 0019F MOVL RO. STATUS : 
: 1A2 7$: BLBS STATUS. ; 
00BC 1A BRW 4$ : 
52 08 AC DO 001A8 8S: MOV DATA, R2 + 1569 
7E 04 A : C7 OO1AC DIVL3 WORTH, 4(R2), =(S?) : 
DO 00181 PUS ; 
; 4 183 CLRL =< SP) ; 
FO «OAS «OOF 0018 PUSHAB BAR_FAO ; 
65 4 re 188 CALLS #4, LIBSSYS_FAO ; 
01 0 188 BLBS STATUS, 9$ : 
4 001BE RET ; 
50 63 3C OO1BF 9S: MOVZWL DESC, RO : 1572 
0 04 a3 CO O01C ADDL2 DESC44, RO ; 
50 D7 O01C DECL F 
51 04 A3 DO 001C MOVL  DESC+4, PTR : 1571 
0? 11 001CC BRB : 
1 7c —soBF 20 1CE 10$:  MOVB #124, (PTR)+ + 1573 
1 OF CO 0010 ADDL2 #14, PTR : 
50 D1 00105 11$:  CMPL PTR. RO ; 
F4 18 1D BLEGU : 
50 000000006 00 p 1DA MOVL REP RT_VALUE, RO : 157 
04 AE 020 F 3C OO1E1 MOVZWL #512, SSBUFFDESC : 158 
01 08 Ad D} 1€7 CMPL BCR 5, wi : 157 
1 12 OO1€8 BNE 2$ : 
7E 1 7D OO1E MOVa #1, =(SP) > 1583 
10 AE 16 AE SE OOTF MOVAB S$SBUFFER, SSBUFFDESC+4 : 
53 DD OO1F PUSHL F 
4 A2 DD OO1F PUSHL  4(R2) ; 
4 AC DD OOIFA PUSHL KEY ; 
7E 64 3C OO1F MOV ZL REPORT HDR2_FAO, -(SP) : 
1c «OAE OOF PUSHAB $$BUFFDESC : 
é AE OF PUSHAB $SBUFFDESC : 
A? OF PUSHAB P.AAS : 
65 o7 re ? CALLS #7, LIBSSYS_FAO 3 
OoAC C3 OF 12$:  FUSHAB POST_MIDNIGHT : 1590 
04 A2 OF PUSHAB 4(R2J ; 
006 0 -_ & 0051 PRS, ee. LIBSDAY ; 
ooac C3 00 AC 4 000186A0 BF 7A EMUL Ss bobo POST_MIDNIGHT, #0, POST_MIDNIGHT ; 1591 
E 1 70 mMOVa = #1, =(SP : 1597 
10 AE 14 Af 9E MOV SSGUFFER, SSBUFFDESC+4 ; 
53 DD PUSHL R ; 


& 
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doar + oF 7 PUSHAB POST_MIDNIGHT : 
AB ¢3 0D PUSHL DAY : 
04 AG D PUSHL KEY : 
7E C MOVZWL REPORT_HOR2_FAO, -(SP) : 
0 AE 9F 0024 PUSHAB ; UF FBESC ; 
4 AE F 0024 PUSHAB UF FDESC ; 
0094 F 00248 PUSHAB P.AAU : 
65 F 4F CALLS a, LIBSSYS_FAO : 
2 D 138: MOVL R STATUS : 
0c : BLBC status 4$ : 
OC AE SF PUSHAB uEF DESC : 
é F 8 CALLS #3, SCRSPUT_LINE : 
D E VL STAT : 
0 E LBS STATUS, 15$ : 
DD 00264 148:  PUSHL ATUS : 
ga FB 66 CALLS #1, LIBSSIGNAL : 
0 2 p 6 MOVL STATUS, RO : 
4 0026C RET : 
50 01 00 D15$:  MOVL #1, RO + 1600 
04 0 RET : 1601 


; Routine Size: 625 bytes, Routine Base: CODE + 0564 


" 
@ 
=< 
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; ie 16 § } ROUTINE SETUP_GRAPH (MINVAL, MAXVAL, RESERVE, WORTH, DESC) = 
AB 

; af 18 Functional description 

; (781 1 1 i This routine calculates the worth of a column for a bar 

: f ¢ } : : } graph and prepares a header Line to go over the graph. 

; g 4 181 ' Input parameters 

3 7 1818 ii MINVAL = Minimum value to be graphed 

oe. 1614 1! MAXVAL. = Maximum value to be graphed 

3 789 1933 : RESERVE = Number of columns to reserve for symbols 

; a! 1817 i Output parameters 

; a4 1619 1/ WORTH = Address of a longword to receive worth of a column 

; 7 1620 1! DESC = Address of a dynamic descriptor to receive header 

> 794 1621 1! 

3 736 19 ¢ ! } Any errors encountered are RETURNed immediately. 

: 79 1624 1 i---- 

; 798 1625 1 

; 799 1 $ BEGIN 

; 801 1688 @ LOCAL 

3 § 16 nin, ' Holds local minimum value 

| i net Ecesvests staat Sore 

; 805 16 3 rameres i Number of groups 

; 16 

3 4 5 Width = SCREEN (width) - .reserve; ! Calc useable space 

3 810 16 Width = (.width/columns_per_group) * ! Use integral number of groups 
3 43 1 5 columns_per_group; 

; ig 164 If .minval Lssu (.maxval/4) then min = 0 

3 1 196) else min = .minval; ! Only offset if significant 
; 1¢ 1648 Range = maxu (.maxval - .min, 1); ! Compute range of graph 

: 18 1645 .Worth = (.range+.width)/.width; ! Cale worth of column 

: 184? Numgrp = .width / columns_per_group; ! Calc number of groups 

: g tee Perform (str$dupl_char (.desc, 0)); ! Zero result descriptor 

; 3 1681 Incru i to .width by columns_per_group do ! For each group 

; g p 1688 perform (Libssys fao ( ' Create a detail header 

3 P 1654 d ('!a<!ULT>"), ! control string 

3 . 18 é i : output utter needed 
Py | 6 - 

: P 1 columns_per_group, ! ewidth of a column gro 

3 1888 -min + vf erevorth))); ! group value _— 


= 
< 
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perform (str$append ( ! Cegcacenet with header 
desc ! «destination 
wdesc)); i source 
Perform (strS$left (.desc, .desc, width)); ! Limit max string size 
Return true; 
END; 
7D -BLKB 3 
3E 21 4C 55 21 3¢ 38 1 O07DB P.AAX: .ASCII \!a<!UL!>\ : 
99 00008 OO7E0 P.AAW: .LONG 8 : 
000000" 007E4 -ADDRESS P.AAX : 
001¢ 00000 SETUP_GRAPH: | ss a at ad we 
ave ° P+ 
4 90000000" 4 H VAB  WDESC, R4 : 
0 000000006 MOVZWL SCREEN _CHAR+4, RO 3 
7 0 se SUBL RE ERVE, RO, WIDTH : 
5 6 OF ¢ DIVLS #15, wits : 
6 OF C3 MULLS #15, RO, WIDTH : 
5 08 Ac ¢ DIVL3 #4, XVAL, 0 : 
5 06 ac O01 CMPL MINVAL, R : 
i BGEQU§ 1$ : 
3 ; CLRL = MIN : 
4 11 BRB 2$ 3 
53 06 ac D MOVL. MINVAL, MIN : 
50 08 Ac : SUBL3 BIN. MAXVAL, RO ; 
BNEQ 3 3 
0 1 D MOVL #1, RO : 
0 6— C ADDL2 WISTH, RO : 
10 eC 0 — ¢ DIVL WIDTH. RO, @WORTH : 
0 6E F ¢? DIVL3 #15, WIDTH, NUMGRP : 
E D4 cURL = (SP) : 
14 aC DD SHL DESC : 
000000006 00 FB CALLS @# STRSDUPL_CHAR : 
48 E BLBC STATUS, 6 : 
4 CLRL : 
dD 11 BRB $ 3 
50 52 10 B¢ 5 MULL3 RTH |. RO : 
60 F PUSHAB (RO) CMIN : 
F OD PUSHL #1 : 
4 D PUSHL R4 : 
‘ : p CLRL = (SP) : 
; 8E AF OF PUSHAB P,AAW : 
000000006 90 ; FB CALLS #5, LIBSSYS_FAO ; 
C E BLBC STATUS, 6$ ; 
4 OD PUSHL R64 : 
14 AC OD PUSHL DESC ; 
000000006 Q FB CALLS #2, STRSAPPEND F 
D E BLBC STATUS, 6$ ; 


1Foseoctage 28:49:84 2 Ve O2T42 many 030:%% 8 


000000006 


OVioy PVinwnro 
—"OWOooOmMmon 


00 
03 
50 


0 00090 
04 OO0A0 6$: 
3; Routine Size: 161 bytes, Routine Base: CODE + O7E8 
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i 


: ? } } GLOBAL ROUTINE WRITE_TOTALS = 

: 5 167 lecce 

3 § 167 ‘ 

: } } Functional description 

3 5 1675 1 This routine is called when a totals page is required. A 
; 850 1 1 1! totals page contains statistics accumlated during the running 
; 851 197 : : of the program, such as number of records read. 

; : 1938 1 | Input parameters 

3 4 1 9 1! 

3 5 1 1! 

: 28 : § : Output parameters 

; 828 : : : Any errors encountered are RETURNed immediately. 

ie yt 

; 86g 1688 BEGIN 

; 86 1689 return true; 

3 1690 3 


0000 00000 ENTRY WRITE TOTALS, Save nothing 
50 01 00 464 MOVL #1, RO 
04 0000 


3; Routine Size: 6 bytes, Routine Base: CODE + 0889 


4 
ee 000 1B-sep- PS ra Set Ht ee et od Pe et 


eEXTRN LIBSSIGNAL 


PSECT SUMMARY 

Name Bytes Attributes 
DATA ele NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, halle Seg bb ts 
CODE 2191 NOVEC, NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
cussnese Syahe|§ cocecsee Pages Processing 

File Total Loaded Percent Mapped Time 
-$255$D0UA28: CSYSLIBISTARLET.L32;1 977 36 581 701.1 
etiitinrt f SYSLIBJTPAMAC.L 34 i3 0 § 14 $0390: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SUMMARY/OBJ=OBJ$:SUMMARY MSRC$:SUMMARY/UPDATE=(ENHS: SUMMARY) 
; Size: "00 code, + 469 data bytes 
; Run Ti 
; Elap sed T 
; thy Mir n: yi 
; Lexemes/CPU-Min: 267 


: Used: 273 pages 
: pot Bey ‘meenen 


NT CORPORATION — 


War vaxvuee va D PROPRIETARY 
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